home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / libs / vopl / glvopl.lha / glvopl / src / msfort / fswitch.for < prev    next >
Encoding:
Text File  |  1993-10-07  |  2.3 KB  |  149 lines
  1.     interface to subroutine C_fit[c](type)
  2.     integer *2 type
  3.     end
  4.  
  5.     interface to subroutine C_skip[c](i)
  6.     integer *2 i
  7.     end
  8.  
  9.     interface to subroutine C_endslopes[c](a, b)
  10.     real *8 a, b
  11.     end
  12.  
  13.     interface to subroutine C_gridspacing[c](i)
  14.     integer *2 i
  15.     end
  16.  
  17.     interface to subroutine C_scaling[c](i, a)
  18.     integer *2 i
  19.     character *1 a
  20.     end
  21.  
  22.     interface to subroutine C_tickmarks[c](i, a)
  23.     integer *2 i
  24.     character *1 a
  25.     end
  26.  
  27.     interface to subroutine C_tickspacing[c](i, a)
  28.     integer *2 i
  29.     character *1 a
  30.     end
  31.  
  32.     interface to subroutine C_minorticks[c](i, a)
  33.     integer *2 i
  34.     character *1 a
  35.     end
  36.  
  37.     interface to subroutine C_annotate[c](f[reference], a)
  38.     character *(*) f
  39.     character *1 a
  40.     end
  41.  
  42.     interface to subroutine C_arrayindex[c](i)
  43.     integer *2 i
  44.     end
  45.  
  46.     interface to subroutine C_marker[c](s[reference])
  47.     character *(*) s
  48.     end
  49.  
  50.     interface to subroutine C_markerspacing[c](i)
  51.     integer *2 i
  52.     end
  53.  
  54.     interface to subroutine C_markerscale[c](i)
  55.     real *8 i
  56.     end
  57.  
  58.     interface to subroutine C_graphtitle[c](s[reference])
  59.     character *(*) s
  60.     end
  61.  
  62.     interface to subroutine C_drawtitle[c]
  63.     end
  64.  
  65.     interface to subroutine C_range[c](a, b, ax)
  66.     real *8 a, b
  67.     character *1 ax
  68.     end
  69.  
  70.     subroutine fit(i)
  71.     call C_fit(i)
  72.     end
  73.  
  74.     subroutine skip(i)
  75.     call C_fit(i)
  76.     end
  77.  
  78.     subroutine endslopes(a, b)
  79.     call C_endslopes(a, b)
  80.     end
  81.  
  82.     subroutine gridspacing(i)
  83.     call C_gridspacing(i)
  84.     end
  85.  
  86.     subroutine scaling(i, ax)
  87.     character *1 ax
  88.     call C_scaling(i, ax)
  89.     end
  90.  
  91.     subroutine tickmarks(i, ax)
  92.     character *1 ax
  93.     call C_tickmarks(i, ax)
  94.     end
  95.  
  96.     subroutine tickspacing(i, ax)
  97.     character *1 ax
  98.     call C_tickspacing(i, ax)
  99.     end
  100.  
  101.     subroutine minorticks(i, ax)
  102.     character *1 ax
  103.     call C_minorticks(i, ax)
  104.     end
  105.  
  106.     subroutine annotate(f, ax)
  107.     character *(*) f
  108.     character *1 ax
  109.     character *128 t_string
  110.     call C_annotate(t_string(f), ax)
  111.     end
  112.  
  113.     subroutine arrayindex(i)
  114.     call C_arrayindex(i)
  115.     end
  116.  
  117.     subroutine axisintersection(a, b)
  118.     call C_axisintersection(a, b)
  119.     end
  120.  
  121.     subroutine marker(s)
  122.     character *(*) s
  123.     character *128 t_string
  124.     call C_marker(t_string(s))
  125.     end
  126.  
  127.     subroutine markerspacing(i)
  128.     call C_markerspacing(i)
  129.     end
  130.  
  131.     subroutine markerscale(a)
  132.     call C_markerscale(a)
  133.     end
  134.  
  135.     subroutine graphtitle(s)
  136.     character *(*) s
  137.     character *128 t_string
  138.     call C_graphtitle(t_string(s))
  139.     end
  140.  
  141.     subroutine drawtitle
  142.     call C_drawtitle
  143.     end
  144.  
  145.     subroutine range(a, b, ax)
  146.     character *1 ax
  147.     call C_range(a, b, ax)
  148.     end
  149.